(set-locale-environment): Ignore

empty values of environment variables.

diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index c70fa7a43a5130aca3d0d29a4f455d7209a5a287..0e6f74d200ce6f75dd50aea1add5ce71605f4822 100644 (file)
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -2187,8 +2187,9 @@ See also `locale-charset-language-names', `locale-language-names',
       ;; Use the first of these three environment variables
       ;; that has a nonempty value.
       (let ((vars '("LC_ALL" "LC_CTYPE" "LANG")))
-       (while (and vars (not (setq locale (getenv (car vars)))))
-         (setq vars (cdr vars)))))
+       (while (and vars
+                   (= 0 (length locale))) ; nil or empty string
+         (setq locale (getenv (pop vars))))))
 
     (when locale